home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / page_monster / pagemonsterv1.0_3.dms / pagemonsterv1.0_3.adf / SCRIPTS / parse.rexx < prev    next >
OS/2 REXX Batch file  |  1997-01-26  |  640b  |  33 lines
  1. /* GET INLINE FILENAME */
  2. call open(place, 'env:filequery')
  3. wher = readln(place)
  4.  
  5. lng = LENGTH(wher)
  6. x = lng - 2
  7. fileB = SUBSTR( wher , 2 , x )
  8. file = SUBSTR( wher , 2 , x ) 
  9. parse var file ':' temp
  10. if temp="" then temp=x
  11. do forever
  12. parse var temp FileName '/' temp
  13. if temp ="" then break
  14. end
  15. cap = '">'
  16. capb = '" ALIGN=top>'
  17. capc = '" ALIGN=middle>'
  18. capd = '" ALIGN=bottom>'
  19. str1 = '<IMG SRC="pics/'
  20. str2 = '<IMG SRC="'
  21. str9 = '<A HREF="'
  22. ADDRESS 'AV.REXX'
  23. SETVAR inline FileName
  24. SETVAR INLN1 str1
  25. SETVAR INLN2 str2
  26. SETVAR endcap cap
  27. SETVAR sub1 capb
  28. SETVAR sub2 capc
  29. SETVAR sub3 capd
  30. SETVAR PATH1 fileB
  31. SETVAR aw str9
  32. SETVAR exfile fileB
  33.